10 REM ********************************
20 REM ******** 1650 AUTODIAL *********
30 REM ********************************
40 REM ************* BY ***************
50 REM ********************************
60 REM ******** DAVID BRADLEY *********
70 REM ********************************
80 :
90 :
100 REM     *********************
110 REM     *** VARIABLE LIST ***
120 REM     *********************
130 :
140 REM AB  = ABORT CHECK
150 REM AB$ = ABORT GET
160 REM B1  = PULSE PHONE
170 REM B2  = READY MODEM
180 REM D   = LENGTH OF INPUT
190 REM D$  = NUMBER TO DIAL INPUT
200 REM G$  = YES/NO
210 REM I   = MISC COUNTING
220 REM L   = SOUND ROUTINE COUNTER
230 REM N   = NUMBER OF PULSES
240 REM N$  = USED TO BREAK UP D$
250 REM N1  = COUNT PULSES
260 REM NA  = NUMBER OF ATTEMPTS
270 REM S   = SID REFERENCE VALUE
280 REM SA  = DELAY FOR CARRIER DETECT
290 REM SD  = FALSE CARRIER
300 REM T   = TIME DELAY/PULSE LENGTH
310 REM TI  = BUILT IN CLOCK
320 REM X   = COUNTING
330 REM XX  = TIME DELAY
340 :
350 REM     *************
360 REM     *** SETUP ***
370 REM     *************
380 :
390 POKE53280,0:POKE53281,0:PRINT"[147]":PRINTCHR$(14):PRINTCHR$(8)
400 REM OPEN15,8,15,"S0:1650":SAVE"1650",8:VERIFY"1650",8
410 B1=56577:B2=56579
420 NA=1
430 POKE B2,32
440 POKE B1,0
450 :
460 REM     *************
470 REM     *** START ***
480 REM     *************
490 :
500 PRINT"     1650 [193][213][212][207][196][201][193][204][197][210] [194][217] [196][193][214][201][196] [194][210][193][196][204][197][217]"
510 PRINT"     --------------------------------"
520 PRINT"[205]OVE [212]-[196] [211]WITCH [212]O [196]ATA"
530 PRINT"([208]RESS [210][197][212][213][210][206] [212]O [209]UIT)"
540 PRINT"[212]O [193]BORT [196]IALING [207]PERATION [208]RESS [193]NY [203]EY"
550 PRINT"                  [193]ND [215]AIT              "
560 PRINT"[197]NTER [206]UMBER [212]O [196]IAL*[157][157][157]";
570 INPUT D$
580 FORI=1TOLEN(D$)
590 IFMID$(D$,I,1)="-"THEN640
600 IFMID$(D$,I,1)="*"THEN640
610 IFASC(MID$(D$,I,1))>57THEN650
620 IFASC(MID$(D$,I,1))<48THEN650
630 NEXTI
640 GOTO660
650 PRINT"[197]RROR [201]N [206]UMBER [201]NPUT...[210]E-[197]NTER":XX=1000:GOSUB1540:GOTO390
660 IFD$="*"THENPRINT"[209]UIT? ([217]/[206])            ":GOTO680
670 GOTO720
680 GET G$
690 IF G$=""THEN680
700 IF G$="Y"THENPRINT"[147]":END:PRINT"[195]ONT [206][207][212] [193]LLOWED":G$="Y":GOTO700
710 GOTO390
720 IFLEN(D$)<7THEN750
730 IFLEN(D$)>15THEN810
740 GOTO850
750 PRINT"";D$;" [201]S [204]ESS [212]HAN 7 [196]IGITS!":XX=500:GOSUB1540
760 PRINT"[196]IAL [193]NYWAY?"
770 GETG$
780 IFG$=""THEN770
790 IFG$<>"Y"THENPRINT"[147]":GOTO390
800 GOTO850
810 PRINT"";D$;" [201]S [193] [194]IT [204]ONG       ":XX=500:GOSUB1540
820 PRINT"[196]IAL [193]NYWAY?"
830 GETG$:IFG$=""THEN830
840 IFG$<>"Y"THENPRINT"[147]":GOTO390
850 POKE B1,32
860 T=1000
870 T=T-1:IFT<>0 GOTO870
880 PRINT"[196]IALING ";D$; " [193]TTEMPT [206]UMBER";NA
890 PRINT"              [145][145]"
900 D=LEN(D$)
910 FORX=1TOD
920 GETAB$:IFAB$<>""THENAB=1
930 N$=MID$(D$,X,1)
940 IFN$="-"THENGOTO980
950 N=VAL(N$)
960 IFN=0THENN=10
970 GOSUB1080
980 NEXTX
990 PRINT
1000 PRINT "[196]IAL [195]OMPLETE!             "
1010 IFAB=1THENAB=0:GOTO390
1020 XX=5000:GOSUB1540
1030 IFPEEK(B1)<>127THENGOTO1190
1040 GETAB$:IFAB$<>""THENAB=1
1050 IFAB=1THENAB=0:GOTO390
1060 T=T+1:IFT>1000THENT=0:POKEB1,0:XX=1000:GOSUB1540:NA=NA+1:GOTO850
1070 GOTO1030
1080 FORN1=1TON
1090 POKEB1,0
1100 T=6
1110 T=T-1:IFT<>0THEN1110
1120 POKEB1,32
1130 T=4
1140 T=T-1:IFT<>0THEN1140
1150 NEXT N1
1160 T=70
1170 T=T-1:IFT<>0THEN1170
1180 RETURN
1190 SD=0:SA=TI
1200 IFTI-SA<60THEN1220
1210 GOTO1240
1220 IFPEEK(B1)<>127THENSD=1
1230 GOTO1200
1240 IFSD=0THENPRINT"[194]USY!":POKEB1,0:XX=1000 GOSUB1540:GOTO760
1250 GOSUB 1340
1260 PRINT"[215]E [200]AVE [193] [195]ONNECTION!"
1270 PRINT"[204]OADING [210][213][206][212][197][210][205] [208][204][213][211]"
1280 LOAD"RUNTERM PLUS",8
1290 :
1300 REM *****************************
1310 REM *** ALARM/BELL SUBROUTINE ***
1320 REM *****************************
1330 :
1340 S=54272
1350 FORL=0TO24
1360 POKES+L,0
1370 NEXTL
1380 POKE S+1,100
1390 POKE S+5,10
1400 POKE S+15,255
1410 POKE S+24,15
1420 POKE S+4,21
1430 XX=500:GOSUB1540
1440 POKES+24,0
1450 FORL=0TO24
1460 POKES+L,0
1470 NEXTL
1480 RETURN
1490 :
1500 REM *****************************
1510 REM *** TIME DELAY SUBROUTINE ***
1520 REM *****************************
1530 :
1540 FORI=1TOXX:NEXTI:RETURN